<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <title>Libros Presupuestario por Cuentas</title>
        <style type="text/css">
            <!--
            .style7 {
                font-size: 12px
            }
            .Estilo5 {
                font-size: 10px
            }
            .Estilo6 {
                font-size: 9px
            }
            .Estilo7 {
                font-size: 13px;
                font-weight: bold;
            }
            -->
        </style>
        <style type="text/css">
            
            .Estilo13 {
                font-size: 24px
            }
            
        </style>
    </head>
    <body>
        <p align="center">
            <?
            include 'conexion.php';
            extract($_POST);
            extract($_GET);
            if($ano=="" or $cuenta=="") { ?>
            <script language="JavaScript" type="text/JavaScript">
                alert('FALTAN DATOS VERIFICA!')
                window.self.location="libros.php"

            </script>
                <? } else {

                $sql7="Select * from cuenta_gen  where cuenta='".$cuenta."'";
                $resultado7=mysql_query($sql7,$conexion);
                $reg7= mysql_fetch_array($resultado7);

                $sql8="Select * from cuentas where cuenta='".$cuenta."' and ano='$ano'";
                $resultado8=mysql_query($sql8,$conexion);
                $reg8= mysql_fetch_array($resultado8);//arreglos que se trae todos los datos relacionados a la cuenta para el año especificado por el usuario.

                $sql9="Select sum(modificado) from modificacion where cuenta='".$cuenta."' and DATE_FORMAT(fecha,'%Y')='$ano'";
                $resultado9=mysql_query($sql9,$conexion);
                $reg9= mysql_fetch_array($resultado9);//array que almacena el total del monto modificado para la cuenta en el año.

                $sqlit="Select * from items where nombre_item='Dependencia Presupuestaria'";
                $resultadoit=mysql_query($sqlit,$conexion);
                $regit= mysql_fetch_array($resultadoit);?>

        </p>
        <table width="35%" border="1" align="right" bordercolor="#000000">
            <tr>
                <td colspan="8"><div align="center"><span class="Estilo6">CODIGO PRESUPUESTARIO </span></div></td>
            </tr>
            <tr>
                <td><div align="center" class="Estilo6">Sector</div></td>
                <td><div align="center" class="Estilo6">Prog</div></td>
                <td><div align="center" class="Estilo6">Proy</div></td>
                <td><div align="center" class="Estilo6">Act</div></td>
                <td><div align="center" class="Estilo6">Partida</div></td>
                <td><div align="center" class="Estilo6">PG</div></td>
                <td><div align="center" class="Estilo6">PE</div></td>
                <td><div align="center" class="Estilo6">PSE</div></td>
            </tr>
            <tr>
                <td><div align="center" class="style7">01</div></td>
                <td><div align="center" class="style7">04</div></td>
                <td><div align="center" class="style7">00</div></td>
                <td><div align="center" class="style7"><? echo $regit[1] ?></div></td>
                <td><div align="center" class="style7"><span class="Estilo5"></span>
                            <? $num_cue=$reg7[0];//$num_cue Almacena el codigo de la cuenta
                            echo "$num_cue[0]";
                            echo "$num_cue[2]";
                            echo "$num_cue[3]";?>
                    </div></td>
                <td><div align="center" class="style7"><? echo "$num_cue[5]";
                            echo "$num_cue[6]";?></div></td>
                <td><div align="center" class="style7"><? echo "$num_cue[8]";
                            echo "$num_cue[9]";?></div></td>
                <td><div align="center" class="style7"><? echo "$num_cue[11]";
                            echo "$num_cue[12]";?></div></td>
            </tr>
        </table>
        <p align="right">&nbsp;</p>
        <table width="55%" align="center">
            <tr>
                <td><span class="Estilo7 Estilo13">Libro de Ejecucion Presupuestaria </span></td>
            </tr>
        </table>
        <p></p>
        <table width="100%" border="1" bordercolor="#000000" class="celdacompleta">
            <tr>
                <td width="20%" rowspan="2" class="celdacompleta"><div align="center" class="Estilo5">Denominaci&oacute;n: <? echo utf8_encode($reg8[2]);//cuenta?></div></td>
              <!--  <td width="5%" rowspan="2" class="celdacompleta"><div align="center" class="Estilo5"><? //echo "$reg8[1]";?></div></td>-->
                <td width="24%" class="celdacompleta"><div align="center" class="Estilo5">Asignaci&oacute;n Inicial</div></td>
              <!--  <td width="17%" class="Estilo5">Asignacion Modificada</td>  -->
                <td width="17%" class="celdacompleta"><div align="center" class="Estilo5">Recibido</div></td>
                <td width="18%" class="celdacompleta"><div align="center" class="Estilo5">Ejecutado</div></td>
                <td width="16%" class="celdacompleta"><div align="center" class="Estilo5">Reintegro</div></td>
            </tr>
            <tr>
                <td class="celdacompleta"><?
                        $pres=$reg8[3];//asignación Inicial para la cuenta.
                        $pres2= number_format($pres,2,",",".");

                        echo $pres2; ?>    </td>

                <td class="celdacompleta"><? $sqlfondo="Select sum(monto) from fondo where cuenta='".$cuenta."'and ano='$ano'";
                        $resultadofondo=mysql_query($sqlfondo,$conexion);
                        $regfondo= mysql_fetch_array($resultadofondo);
                        $saldofondo=$regfondo[0];//$saldofondo almacena el total recibido de los fondos para la cuenta en el año.
                        $saldofondo2= number_format($saldofondo,2,",",".");//$saldofondo almacena el total recibido de los fondos para la cuenta en el año.
                        echo $saldofondo2;

                        ?>    </td>
                <td class="celdacompleta"><?
                        $repag=mysql_query("SELECT  pago.anulado, id_pago.monto_s FROM pago, id_pago where pago.cod_p=id_pago.cod_p and id_pago.cuenta='$cuenta' and DATE_FORMAT(fecha,'%Y')='$ano' ",$conexion);
                        while ($repago= mysql_fetch_array($repag)) {

                            if ($repago[0]!=1) {//Si la orden de pago no ha sido anulada.....
                                $suma=$suma+$repago[1];//$suma va almacenar el total pagado por la cuenta en el año actual
                                $sumatotal=round($suma,2);//$sumatotal va almacenar el total pagado por la cuenta en el año actual redondeado a dos decimales.
                            }
                        }

                        $sumatotal2= number_format($sumatotal,2,",",".");//$sumatotal con dos decimales.
                        echo $sumatotal2;
                        ?></td>
                <td class="celdacompleta"><?   $reintegro= $saldofondo - $sumatotal;//$reintegro almacena el saldo actual para la cuenta en el año, es decir, el total de fondo recibido para la cuenta - el total pagado por la cuenta.
                        $reintegro=round($reintegro,2);

                        $reintegro2= number_format($reintegro,2,",",".");//$reintegro redondeado a 2 decimales.

                        echo $reintegro2;	 ?>    </td>
            </tr>
        </table>
        <p></p>
        <table width="100%" border="1">
            <tr>
            <!--  <td rowspan="2" align="center"><span class="Estilo5">Fecha</span></td>-->
                <td rowspan="2" align="center"><span class="Estilo5">Descripci&oacute;n</span></td>
                <td colspan="2" align="center"><span class="Estilo5">Decreto</span></td>
                <td rowspan="2" align="center"><span class="Estilo5">Modificado</span></td>
                <td colspan="3" align="center"><span class="Estilo5">Compromiso</span></td>
                <td colspan="1" align="center"><span class="Estilo5">Disponibilidad</span></td>
               <!-- <td rowspan="2" align="center"><span class="Estilo5"> Presupuestaria </span></td>
                <td rowspan="2" align="center"><span class="Estilo5">N&ordm; de Factura </span></td>-->
                <td colspan="3" align="center"><span class="Estilo5">Causado</span></td>
              <!--  <td rowspan="2" align="center"><span class="Estilo5">N&ordm; de Comprobante de Egreso </span></td>-->
                <td colspan="3" align="center"><span class="Estilo5">Pagado</span></td>
               <!-- <td rowspan="2" align="center"><span class="Estilo5">Disponibilidad Financiera </span></td>-->
            </tr>
            <tr>
                <!--Decreto-->
                
                <td align="center"><span class="Estilo5">Incremento</span></td>
                <td align="center"><span class="Estilo5">Disminuci&oacute;n</span></td>
                <!--Compromiso-->
                <td align="center"><span class="Estilo5">Fecha</span></td>
                <td align="center"><span class="Estilo5">N de Orden</span></td>
                <td align="center"><span class="Estilo5">Monto</span></td>
                <!--Disponibilidad-->
                <td align="center"><span class="Estilo5">Presupuestaria</span></td>
                <!--Causado-->
                <td align="center"><span class="Estilo5">Fecha</span></td>
                <td align="center"><span class="Estilo5">N. de Factura</span></td>
                <td align="center"><span class="Estilo5">Monto</span></td>
                <!--Pagado-->
                <td align="center"><span class="Estilo5">Fecha</span></td>
                <td align="center"><span class="Estilo5">N de Cheque</span></td>
                <td align="center"><span class="Estilo5">Monto</span></td>



            </tr>

                <?
                $asig = $reg8[3];//asignación Inicial para la cuenta.
                $disp_pres1=0;
                //A continuación bucles anidados para recorrer cada uno de los dias del año y evaluar.... Se hace de esa manera para poder mostrar como es afectado el libro presupuestario en orden ascendente en relación a la fecha.
                for ($i=1;$i<=12; $i++) {
                    for ($j=1;$j<=31;$j++) {
                        if($j<10)
                            $dia='0'.$j;
                        else
                            $dia=$j;
                        if($i<10)
                            $mes='0'.$i;
                        else
                            $mes=$i;

                        $fecha="$ano"."-"."$mes"."-"."$dia";


                        $sqlf="Select monto from fondo where cuenta='".$cuenta."' and fecha='$fecha'";//Consulta que se trae el monto del fondo para la cuenta si coincide con la fecha en que se introdujo el fondo al sistema.
                        $resultadof=mysql_query($sqlf,$conexion);
                        $regf= mysql_fetch_array($resultadof);
                        $fondo1=$regf[0];//monto del fondo para la cuenta.
                        $saldo=$saldo+$fondo1;//$saldo almacena el total de todos los fondos depositados para la cuenta.
                        $saldo1= number_format($saldo,2,",",".");//$saldo1 almacena el total de todos los fondos depositados para la cuenta formateado a dos decimales.

                        $mod=mysql_query("SELECT * FROM modificacion where cuenta='$cuenta' and fecha='$fecha' order by fecha ",$conexion);
                        while ($modi= mysql_fetch_array($mod)) {//Si el script entra aqui es porque la cuenta ha tenido alguna modificación en la asignación en el año, entonces se procede a agregar como primera fila lo relacionado a la modificación de la cuenta...




                            $modifi=$modi[2]-$modi[3];//$modifi = Incremento - Disminución.
                            $disponibilidad= $asig + $modifi;//$disponibilidad = asignación inicial para la cuenta + el monto modificado de la asignación inicial.
                            $asig=$disponibilidad;
                            $asig1= number_format($asig,2,",",".");//$asig1 almacena la disponibilidad presupuestaria es decir la asignacion inicial + la disminución o incremento que se haga durante el año para la cuenta.
                            $incre= number_format($modi[2],2,",",".");//$incre almacena el monto del incremento para la asignación inicial de la cuenta durante el año.
                            $desmi= number_format($modi[3],2,",",".");//$desmi almacena el monto de la disminución para la asignación inicial de la cuenta durante el año.
                            $modi2= number_format($modi[4],2,",",".");//$modi2 almacena el monto de la cuenta ya modificado.

                            ?>

            <tr>
                <td align="center"><div align="left"><span class="style7 style7">
                                            <?if ($modi[2]!=0)echo "Incremento segun Decreto Nº ". $modi[6];
                                              if ($modi[3]!=0)echo "Disminucion segun Decreto Nº ".$modi[6];?>
                        </span></div></td>
                <td align="center"><div align="left"><span class="style7 style7">
                                            <?echo $incre;
                                            ?>
                        </span></div></td>
                <td align="center"><span class="style7 style7"><?echo $desmi;?></span></td>
                <td align="center"><span class="style7 style7"><? echo $modi2;?></span></td>
                <td align="center"><span class="style7 style7"><?  ?></span></td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center"><span class="style7 style7"><? echo $asig1; ?></span></td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
            </tr>

                            <? }

                        //A continuación se evaluan los compromisos realizados por la cuenta.
                        $compr=mysql_query("SELECT compra1.cod_c, compra1.cod_ser_com, compra1.fecha, compra1.anulado, compra1.causado, compra1.tipo, id_compra.cuenta_iva, sum(id_compra.cantidad*id_compra.pre_unit), sum(id_compra.valor_iva)   FROM compra1, id_compra where compra1.cod_c=id_compra.cod_c and (id_compra.cuenta='$cuenta' or id_compra.cuenta_iva='$cuenta') and compra1.fecha='$fecha' group by id_compra.cod_c",$conexion);
                        while ($compra= mysql_fetch_row($compr)) {//mientras se consiga un registro, es decir, mientras se consiga que se realizo una compra en esta $fecha...
                            $micadena="";

                            $sqlcad="Select descripcion from id_compra where cod_c='$compra[0]' and (cuenta='$cuenta' or cuenta_iva='$cuenta')";//Consulta que se trae la descripcion de cada uno de los productos dentro de la orden de compra.
                            $resulcad=mysql_query($sqlcad,$conexion);
                            while ($cad= mysql_fetch_array($resulcad)) {
                                $micadena = $micadena . "$cad[0]"."," ;//$micadena almacena todas las descripciones de todos los productos relacionados a la orden de compra.
                            }

                            if ($compra[6]==$cuenta) {//Si la cuenta que estamos evaluando es una cuenta_iva...
                                $compromiso=$compra[8];//$compromiso almacena el valor total del iva comprometido por todos los productos relacionados a la orden de compra.
                                $compromiso=round($compromiso,2);
                                $compromiso1= number_format($compromiso,2,",",".");//$compromiso formateado a dos decimales.
                            }
                            else {//Si la cuenta que estamos evaluando no es una cuenta_iva entonces...
                                $compromiso=$compra[7];//$compromiso almacena el total comprometido por todos los productos relacionados a la orden de compra siempre y cuando estos se comprometan por la cuenta en cuestión.
                                $compromiso=round($compromiso,2);
                                $compromiso1= number_format($compromiso,2,",",".");//$compromiso formateado a dos decimales.
                            }

                            if ($compra[3]!=1) {//Si la orden de compra que estamos evaluando no ha sido anulada..
                                $disponibilidad= $asig - $compromiso;//$disponibilidad almacena la disponibilidad presupuestaria para la cuenta en el momento, es decir, $disponibilidad = (asignación inicial) - (lo comprometido en la orden de compra para la cuenta en cuestión).
                                $asig=$disponibilidad;
                            }
                            $asig1= number_format($asig,2,",",".");//$asig1 = $disponibilidad formateado a dos decimales.


                            ?>

            <tr><!--COMPROMISO-->
                <td align="rigth"><span class="style7 style7"><? if ($compra[3]!=0){
                    echo $micadena."(Orden Anulada)";
                    } else {
                echo $micadena;
                    }

                    ////Descripción?></span></td>

                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>

                <td align="center"><span class="style7 style7"><? echo $compra[2]; //Fecha?></span></td>
                <td align="center"><span class="style7 style7"><?
                                        echo $compra[1];//Codigo de servicio de la Compra.
                                        if ($compra[5]==1) echo " C";//" C" en el caso de que sea una orden de compra.
                                        if ($compra[5]==2) echo " S";//" S" en el caso de que sea una orden de servicio.
                                        if ($compra[5]==3) echo " I";//" I" en el caso de que sea una orden interna.
                                        if ($compra[5]==4) echo " A";//" A" en el caso de que sea una orden de administración.


                                        ?></span></td>

                <td align="center"><span class="style7 style7"><? echo $compromiso1; //monto total comprometido por la cuenta en la orden de compra?></span></td>

                <td align="center"><span class="style7 style7"><? echo $asig; //Disponibilidad presupuestaria?></span></td>
                <!--CAUSADO-->
               <?
               $caus="Select * from causado where cod_c='$compra[0]'";//Consulta para traernos los datos de la causa de la compra, en caso de que dicha compra haya sido causada.
               $resulcaus=mysql_query($caus,$conexion);
               $causa= mysql_fetch_array($resulcaus);
               $causado = $causa[1];//fecha de la causa de la compra.
               $causado1= $causa[3];//Factura causada.
               $compromiso2=$compromiso1; //si el script entra aqui es porque la compra fue causada..
              
               ?>

                <td align="center"><span class="style7 style7"><? echo $causado; ?></span></td>
                <td align="center"><span class="style7 style7"><? echo $causado1; ?></span></td>
                <td align="center"><span class="style7 style7"><? if(!$causa){ 
                }else {

                  echo $compromiso2;}//monto total causado ?></span></td>
               
                <!--PAGADO-->
                <?
               
                $pag=mysql_query("SELECT fecha, cheque FROM pago, id_pago where id_pago.cod_c='$compra[0]' and id_pago.cod_p = pago.cod_p and pago.anulado != 1", $conexion);
                $pago= mysql_fetch_row($pag);
                $pago_fecha=$pago[0];
                $pago_cheque=$pago[1];

                    $mon="Select sum(monto_s) from id_pago  where cod_c=$compra[0] and cuenta='$cuenta' ";
                    $remon=mysql_query($mon,$conexion);
                    $monto=mysql_fetch_row($remon);
                    $sum_idp=$monto[0];//$sum_idp almacena el monto total pagado por la cuenta.
                    $sum_idc=$monto[1];//-------------------------------------?--------------------------------
                    $sum_idpc=$sum_idp+$sum_idc;//-------------------------?-----------------------
                    $saldo2= number_format($sum_idpc,2,",",".");//----------------?-----------------
                        
                                        ?> 
                <td align="center"><span class="style7 style7"><? echo $pago_fecha; ?></span></td>
                <td align="center"><span class="style7 style7"><? echo $pago_cheque; ?></span></td>
                <td align="center"><span class="style7 style7"><? echo $monto[0];   ?></span></td></tr>
               
                
           <?
           }
           ?>
                        <?php
                        //En esta parte del script se va a verficar si existen pagos de IVAS e ISLR para mostrarlo
                      /*  $query = "select * from pago where fecha = '$fecha' and pago.anulado != 1";
                        $queryejecuta = mysql_query($query, $conexion);
                        while ($array = mysql_fetch_row($queryejecuta)){*/
                            $query2 = "select sum(monto_s), cheque, concepto, fecha from id_pago, pago, iva where id_pago.cod_p = pago.cod_p and id_pago.cod_c = iva.cod_iva and pago.fecha = '$fecha' and pago.anulado != 1 and id_pago.cuenta = '$cuenta' group by id_pago.cod_p ";
                            $query2ejecuta = mysql_query($query2, $conexion);
                            while ($array2 = mysql_fetch_row($query2ejecuta)) {
                            ?>
            <tr>
                <td align="rigth"><span class="style7 style7"><?php echo utf8_encode($array2[2]); //Concepto?></span></td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center">&nbsp;</td>
                <td align="center"><span class="style7 style7"><?echo $array2[3]; //Fecha del pago?></span></td>
                <td align="center"><span class="style7 style7"><?echo $array2[1]; //Cheque?></span></td>
                <td align="center"><span class="style7 style7"><?echo $array2[0]; //Monto?></span></td>
            </tr>
                            <?php
                        }
                                }
                }

                ?>

        </table>
            <?php

        }

        ?>
    </body>
</html>
